如何用vba将excel工作簿、工作表、单元格区域另存为html文件？ |
您所在的位置：网站首页 › vba 表格另存为日期格式怎么弄 › 如何用vba将excel工作簿、工作表、单元格区域另存为html文件？ |
如何用vba将excel工作簿、工作表、单元格区域另存为html文件？
|
如何用vba将excel工作簿、工作表、单元格区域另存为html网页文件？
2019年7月25日
作者：水星Excel
6,167 次浏览
暂无评论
在excel中可以将excel工作簿另存为网页，如下图所示：
在vba中可以使用PublishObjects对象或者PublishObject对象的Publish方法将excel工作簿、工作表、单元格区域发布为网页。 在用vba excel工作簿、工作表、单元格区域发布为网页之前，要先用PublishObjects对象的Add方法添加要发布的对象。 以下vba代码可以将当前excel工作簿添加为发布对象，并发布为网页： Sub QQ1722187970() Dim oWB As Workbook Set oWB = Excel.ThisWorkbook Dim oPO As PublishObject Dim sPath As String sPath = Excel.ThisWorkbook.Path & "\" With oWB Debug.Print .PublishObjects.Count For Each oPO In .PublishObjects oPO.Delete Next '将整个工作簿添加为发布对象，发布为网页 With .PublishObjects.Add(SourceType:=xlSourceWorkbook, Filename:=sPath & "Result.htm", HtmlType:=xlHtmlStatic, DivID:="Test1") '开始发布 .Publish (True) End With End With End Sub如果要把其中某个工作表发布为网页，需要SourceType参数设置为xlSourceSheet，同时Source参数设置为工作表的名称。如下代码所示是将当前工作簿的第4个工作表添加为发布对象，并发布为网页： Sub QQ1722187970() Dim oWB As Workbook Set oWB = Excel.ThisWorkbook Dim oWk As Worksheet Set oWk = oWB.Worksheets(4) Dim oPO As PublishObject Dim sPath As String sPath = Excel.ThisWorkbook.Path & "\" With oWB Debug.Print .PublishObjects.Count For Each oPO In .PublishObjects oPO.Delete Next '将当前工作簿的第4个工作表添加为发布对象，发布为网页 Set oPO = .PublishObjects.Add(xlSourceSheet, sPath & "Result.htm", oWk.Name, , xlHtmlStatic) With oPO '开始发布 .Publish (True) End With End With End Sub如果要把某个工作表的某个单元格区域发布为网页，需要SourceType参数设置为xlSourceRange，同时Source参数设置为单元格区域的地址，如下代码所示： Sub QQ1722187970() Dim oWB As Workbook Set oWB = Excel.ThisWorkbook Dim oWk As Worksheet Set oWk = oWB.Worksheets(1) Dim oRng As Range Set oRng = oWk.Range("a1").CurrentRegion Dim oPO As PublishObject Dim sPath As String sPath = Excel.ThisWorkbook.Path & "\" With oWB Debug.Print .PublishObjects.Count For Each oPO In .PublishObjects oPO.Delete Next '将当前工作簿的第1个工作表的A1单元格的当前单元格区域添加为发布对象，发布为网页 Set oPO = .PublishObjects.Add(xlSourceRange, sPath & "Result.htm", oWk.Name, oRng.Address, xlHtmlStatic) With oPO '开始发布 .Publish (True) End With End With End Sub 其它相关文章推荐：如何用vba把excel单元格区域转换为html源代码？如何在vba中用ado合并不同excel工作簿的内容？如何用vba将多个工作表另存为独立的工作簿文件？如何在excel中用vba把图表导出为图片格式的文件？如何在vba中枚举本地电脑上安装的所有文件的后缀名？如何在excel中用vba把所有图形对象导出为图片格式的文件？ 分类 : OUTLOOK VBA , VBA 标签 : excel转网页 , html文件 , 发布为网页 , 另存为网页 , 网页声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。 |
【本文地址】
公司简介
联系我们
今日新闻 |
点击排行 |
|
推荐新闻 |
图片新闻 |
|
专题文章 |